home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / libedit.frm < prev    next >
Text File  |  1998-01-01  |  4KB  |  154 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Graphics Library Editor"
  5.    ClientHeight    =   1740
  6.    ClientLeft      =   2565
  7.    ClientTop       =   3600
  8.    ClientWidth     =   4215
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1740
  13.    ScaleWidth      =   4215
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.CheckBox Check1 
  16.       Caption         =   "Masked"
  17.       Height          =   255
  18.       Left            =   2040
  19.       TabIndex        =   7
  20.       Top             =   1320
  21.       Width           =   2055
  22.    End
  23.    Begin VB.CommandButton Command2 
  24.       Caption         =   "Revert"
  25.       Height          =   315
  26.       Left            =   1080
  27.       TabIndex        =   6
  28.       Top             =   1320
  29.       Width           =   855
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Save"
  33.       Height          =   315
  34.       Left            =   120
  35.       TabIndex        =   5
  36.       Top             =   1320
  37.       Width           =   855
  38.    End
  39.    Begin VB.ListBox List1 
  40.       Height          =   1035
  41.       Left            =   2040
  42.       TabIndex        =   4
  43.       Top             =   120
  44.       Width           =   2055
  45.    End
  46.    Begin VB.TextBox Text2 
  47.       Height          =   285
  48.       Left            =   120
  49.       TabIndex        =   2
  50.       Text            =   "-Blank-"
  51.       Top             =   960
  52.       Width           =   1815
  53.    End
  54.    Begin VB.TextBox Text1 
  55.       Height          =   285
  56.       Left            =   120
  57.       TabIndex        =   0
  58.       Text            =   "-Blank-"
  59.       Top             =   360
  60.       Width           =   1815
  61.    End
  62.    Begin VB.Label Label2 
  63.       Caption         =   "Graphic File:"
  64.       Height          =   255
  65.       Left            =   120
  66.       TabIndex        =   3
  67.       Top             =   720
  68.       Width           =   1575
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Library Name:"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   1
  75.       Top             =   120
  76.       Width           =   1575
  77.    End
  78. End
  79. Attribute VB_Name = "Form1"
  80. Attribute VB_GlobalNameSpace = False
  81. Attribute VB_Creatable = False
  82. Attribute VB_PredeclaredId = True
  83. Attribute VB_Exposed = False
  84.  
  85.  
  86. Private Sub Command1_Click()
  87. Call SaveFile
  88. End Sub
  89.  
  90. Private Sub Command2_Click()
  91. Call LoadFile
  92. End Sub
  93.  
  94. Private Sub Form_Load()
  95. Call LoadFile
  96. Form1.List1.AddItem "[NewLib]"
  97. Form1.List1.ListIndex = 0
  98. Call UpdateView
  99. End Sub
  100.  
  101. Private Sub List1_Click()
  102. If List1.ListIndex = 0 Then
  103.   Text1.Text = "-Blank-"
  104.   Text2.Text = "-Blank-"
  105. Else
  106.   Text1.Text = GraphixLibs(List1.ListIndex).LibName
  107.   Text2.Text = GraphixLibs(List1.ListIndex).GraphicsFile
  108. End If
  109. End Sub
  110.  
  111. Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
  112. If KeyCode = 46 Then 'escape
  113.   lastn = List1.ListIndex
  114.   For i = List1.ListIndex To 99
  115.     GraphixLibs(i).GraphicsFile = GraphixLibs(i + 1).GraphicsFile
  116.     GraphixLibs(i).LibName = GraphixLibs(i + 1).LibName
  117.   Next i
  118.   GraphixLibs(100).GraphicsFile = ""
  119.   GraphixLibs(100).LibName = ""
  120. MaxLibs = MaxLibs - 1
  121. List1.ListIndex = lastn - 1
  122. Call UpdateView
  123. End If
  124.  
  125. End Sub
  126.  
  127. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  128. If List1.ListIndex = 0 Then
  129.   MaxLibs = MaxLibs + 1
  130.   GraphixLibs(MaxLibs).LibName = Text1.Text
  131.   GraphixLibs(MaxLibs).GraphicsFile = Text2.Text
  132.   Call UpdateView
  133.   List1.ListIndex = MaxLibs
  134. Else
  135.   GraphixLibs(List1.ListIndex).LibName = Text1.Text
  136.   Call UpdateView
  137. End If
  138.  
  139. End Sub
  140.  
  141. Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  142. If List1.ListIndex = 0 Then
  143.   MaxLibs = MaxLibs + 1
  144.   GraphixLibs(MaxLibs).LibName = Text1.Text
  145.   GraphixLibs(MaxLibs).GraphicsFile = Text2.Text
  146.   Call UpdateView
  147.   List1.ListIndex = MaxLibs
  148.  
  149. Else
  150.   GraphixLibs(List1.ListIndex).GraphicsFile = Text2.Text
  151.   Call UpdateView
  152. End If
  153. End Sub
  154.